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-- file DIActionDefs.Mesa 

-- last modified by Barbara, July 20, 1978 4:42 PM 

DIRECTORY 

DebuggerDefs: FROM "debuggerdef s" USING [SOPointer], 
DIDefs: FROM "didefs" USING [ 

ESPointer, hereESPointer, Operator, predef inedType, thereESPointer, 

TIPointer], 
DILitDefs: FROM "dilitdefs" USING [LTIndex, STIndex], 
SymboUableDefs: FROM "symboUabledefs" USING [SymbolTableBase] , 
SymDefs: FROM "symdefs"; 

DIActionDefs: DEFINITIONS SHARES DIDefs - 
BEGIN OPEN DIDefs; 

--using grammar version 7 

--eval stack manipulation 

EvalStackOverflow: SIGNAL; 

EvalStackEmpty: SIGNAL; 

NILesp: SIGNAL; 

NotOnEvalStack: SIGNAL; 

pushevalstack: PROCEDURE [esp: ESPointer]; 

popevalstack: PROCEDURE RETURNS [esp: ESPointer]; 

popNevalstack: PROCEDURE [n: CARDINAL] RETURNS [esp: ESPointer]; 

--type stack manipulation 

TypeStackOverflow: SIGNAL; 

TypeStackEmpty: SIGNAL; 

pushtypestack: PROCEDURE [tip: TIPointer]; 

poptypestack: PROCEDURE RETURNS [tip: TIPointer]; 

assignvalue: PROCEDURE [rhs: ESPointer. Ihs: thereESPointer]; 
TypesDontMatch: SIGNAL [espl, esp2: ESPointer]; 
performAddOp: PROCEDURE [es2, esl: ESPointer, op: Operator] 

RETURNS [result: hereESPointer]; 
performMultOp: PROCEDURE [es2, esl: ESPointer, op: Operator] 

RETURNS [result: hereESPointer]; 

--perform an action on an eval stack item 

qualifyltem: PROCEDURE [esp: ESPointer, id: DILitDefs. STIndex. 

locals: BOOLEAN] RETURNS [ESPointer]; 
dereferenceltem: PROCEDURE [esp: ESPointer] RETURNS [thereESPointer]; 
loopholeltem: PROCEDURE [esp: ESPointer, tip: TIPointer] 

RETURNS [ESPointer]; 
loopholeUnspecItem: PROCEDURE [esp: ESPointer] RETURNS [ESPointer]; 
minusltem: PROCEDURE [esp: ESPointer] RETURNS [new: hereESPointer]; 
TooManylndirections: SIGNAL; 

addressof Item: PROCEDURE [tesp: thereESPointer] RETURNS [new: hereESPointer]; 
IncorrectType: SIGNAL [esp: ESPointer]; 

--built in calls 

lengthltem: PROCEDURE [esp: ESPointer] RETURNS [new: hereESPointer]; 
baseltem: PROCEDURE [esp: ESPointer] RETURNS [new: hereESPointer]; 
desclltem: PROCEDURE [name: thereESPointer] RETURNS [new: hereESPointer]; 
desc2Item: PROCEDURE [length, base: ESPointer] RETURNS [new: hereESPointer]; 
memltem: PROCEDURE [esp: ESPointer] RETURNS [new: hereESPointer]; 

--type operations 

typeOp: PROCEDURE [typeop: Operator, tip: TIPointer] 

RETURNS [new: hereESPointer]; 
setPredef ined: PROCEDURE [type: predef inedType] RETURNS [tip: TIPointer]; 
SearchFileForType: PROCEDURE [file, id: DILitDefs .STIndex] 

RETURNS [tip: TIPointer]; 
SearchForType: PROCEDURE [id: DILitDefs .STIndex] RETURNS [tip: TIPointer]; 
SearchForVariantType: PROCEDURE [var: DILitDefs. STIndex. tip: TIPointer] 

RETURNS [TIPointer]; 
pointertoType: PROCEDURE [tip: TIPointer] RETURNS [TIPointer]; 
InvalidType: SIGNAL [tip: TIPointer]; 

--interval notation 

Invalidlnterval: SIGNAL [bl, b2: UNSPECIFIED]; 

Inval idLonglnterval: SIGNAL [left, right: LONG INTEGER]; 

setlntervalBit: PROCEDURE [esp: ESPointer] RETURNS [ESPointer]; 

printOctal: PROCEDURE [n, start: ESPointer]; 

printlnterval : PROCEDURE [n, start, exp: ESPointer]; 
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--expression lists 

InvalidExpression: SIGNAL; 

evaluateExpList: PROCEDURE RETURNS [ESPointer]; 

startList: PROCEDURE [size: CARDINAL] RETURNS [new: hereESPointer] ; 

increment Li St: PROCEDURE; 

--handle literals 

litType: TYPE » {num. Inum, char, sr}; 

getLiteral: PROCEDURE [type: litType, value: DILitDef s .LTIndex] 

RETURNS [new: hereESPointer]; 
getLongLiteral : PROCEDURE [value: DILitDef s .LTIndex] 

RETURNS [new: hereESPointer]; 
getStringLiteral: PROCEDURE [value: DILitDef s .STIndex] 

RETURNS [new: hereESPointer]; 

--symbol table manipulation 

LookupId: PROCEDURE [id: DILitDef s .STIndex] RETURNS [ESPointer]; 
SearchFileForld: PROCEDURE [file, id: DILitDef s .STIndex] RETURNS [ESPointer]; 
SearchFrameForld: PROCEDURE [num: DILitDef s .LTIndex, id : DILitDef s .STIndex] 
RETURNS [ESPointer]; 

--util ities 

espTosop: PROCEDURE [esp: ESPointer, sop: DebuggerDof s .SOPointer] ; 

sopToesp: PROCEDURE [sop: DebuggerDefs .SOPointer . tesp: thereESPointer] ; 

AllocateHereStackltem: PROCEDURE RETURNS [hesp: hereESPointer]; 

AllocateThereStackltem: PROCEDURE RETURNS [tesp: thereESPointer]; 

FreeStackltem: PROCEDURE [esp: ESPointer]; 

Transfer: PROCEDURE [esp: ESPointer] RETURNS [newesp: hereESPointer]; 

ActualValue: PROCEDURE [hesp: hereESPointer] 

RETURNS [value: UNSPECIFIED]; 
LongValue: PROCEDURE [hesp: hereESPointer] 

RETURNS [LONG INTEGER]; 
Notlmplemented: SIGNAL; 

--initialization and reset 

GetSetUp: PROCEDURE; 

GetCurrentST: PROCEDURE RETURNS [SymbolTableDef s .SymbolTableBase] ; 

Cleanup: PROCEDURE; 

ResetStacks: PROCEDURE; 

ResetTypeStack: PROCEDURE; 

END... 



